/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / MPW C ƒ / C Include ƒ / Instructions

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 49 6e 73 74 72 75 | 63 74 69 6f 6e 73 00 00 |..Instru|ctions..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c ba 00 | 00 01 7e a2 39 ca 6f a2 |........|..~.9.o.|
|00000060| 39 ca 6f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |9.o.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 87 43 00 00 |........|.....C..|
|00000080| 4d 50 57 20 73 68 65 6c | 6c 20 65 78 65 63 75 74 |MPW shel|l execut|
|00000090| 65 3a 0d 09 0d 09 09 09 | 09 42 69 6f 6d 6f 72 70 |e:......|.Biomorp|
|000000a0| 68 20 20 30 2e 35 20 20 | 30 2e 30 20 20 20 2d 31 |h  0.5  |0.0   -1|
|000000b0| 2e 35 20 20 2d 31 2e 35 | 20 20 31 2e 35 20 20 31 |.5  -1.5|  1.5  1|
|000000c0| 2e 35 0d 0d 0d 0d 09 54 | 68 65 20 73 70 69 6b 79 |.5.....T|he spiky|
|000000d0| 20 72 61 64 69 6f 6c 61 | 72 69 61 6e 20 61 63 74 | radiola|rian act|
|000000e0| 75 61 6c 6c 79 20 69 6c | 6c 75 73 74 72 61 74 65 |ually il|lustrate|
|000000f0| 64 20 69 6e 20 74 68 65 | 20 53 63 69 65 6e 74 69 |d in the| Scienti|
|00000100| 66 69 63 0d 09 20 20 41 | 6d 65 72 69 63 61 6e 20 |fic..  A|merican |
|00000110| 61 72 74 69 63 6c 65 20 | 69 73 20 63 72 65 61 74 |article |is creat|
|00000120| 65 64 20 62 79 3a 0d 0d | 09 09 63 3a 20 09 09 09 |ed by:..|..c: ...|
|00000130| 30 2e 32 20 2b 20 30 2e | 38 69 0d 09 09 62 6f 75 |0.2 + 0.|8i...bou|
|00000140| 6e 64 73 3a 09 09 2d 31 | 30 2e 30 2c 20 2d 31 30 |nds:..-1|0.0, -10|
|00000150| 2e 30 2c 20 31 30 2e 30 | 2c 20 31 30 2e 30 0d 09 |.0, 10.0|, 10.0..|
|00000160| 09 67 65 6e 65 72 61 74 | 6f 72 3a 09 7a 20 3d 20 |.generat|or:.z = |
|00000170| 7a 5e 33 20 2b 20 63 0d | 09 09 0d 0d 09 54 72 79 |z^3 + c.|.....Try|
|00000180| 20 61 6c 73 6f 3a 09 0d | 0d 09 09 63 3a 20 09 09 | also:..|...c: ..|
|00000190| 09 30 2e 32 20 2b 20 30 | 2e 38 69 0d 09 09 62 6f |.0.2 + 0|.8i...bo|
|000001a0| 75 6e 64 73 3a 09 09 2d | 31 2e 32 2c 20 2d 31 2e |unds:..-|1.2, -1.|
|000001b0| 32 2c 20 31 2e 32 2c 20 | 31 2e 32 0d 09 09 67 65 |2, 1.2, |1.2...ge|
|000001c0| 6e 65 72 61 74 6f 72 3a | 09 7a 20 3d 20 7a 5e 35 |nerator:|.z = z^5|
|000001d0| 20 2b 20 63 0d 09 09 09 | 09 20 75 73 65 3a 20 20 | + c....|. use:  |
|000001e0| 63 61 64 64 20 28 63 78 | 70 77 72 69 28 7a 2c 20 |cadd (cx|pwri(z, |
|000001f0| 35 29 2c 20 63 29 0d 0d | 0d 09 0d 09 09 63 3a 20 |5), c)..|.....c: |
|00000200| 09 09 09 30 2e 35 20 2b | 20 30 2e 38 69 0d 09 09 |...0.5 +| 0.8i...|
|00000210| 62 6f 75 6e 64 73 3a 09 | 09 33 2e 31 35 2c 20 32 |bounds:.|.3.15, 2|
|00000220| 2e 32 2c 20 34 2e 33 35 | 2c 20 33 2e 34 0d 09 09 |.2, 4.35|, 3.4...|
|00000230| 67 65 6e 65 72 61 74 6f | 72 3a 09 7a 20 3d 20 73 |generato|r:.z = s|
|00000240| 69 6e 28 7a 29 20 2b 20 | 7a 5e 32 20 2b 20 63 0d |in(z) + |z^2 + c.|
|00000250| 09 09 09 09 20 75 73 65 | 3a 20 20 63 61 64 64 20 |.... use|:  cadd |
|00000260| 28 63 61 64 64 20 28 63 | 73 69 6e 28 7a 29 2c 20 |(cadd (c|sin(z), |
|00000270| 63 73 71 75 61 72 65 28 | 7a 29 29 2c 20 63 29 0d |csquare(|z)), c).|
|00000280| 2a 2f 0d 0d 23 69 6e 63 | 6c 75 64 65 20 3c 54 79 |*/..#inc|lude <Ty|
|00000290| 70 65 73 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |pes.h>.#|include |
|000002a0| 3c 57 69 6e 64 6f 77 73 | 2e 68 3e 0d 23 69 6e 63 |<Windows|.h>.#inc|
|000002b0| 6c 75 64 65 20 3c 4d 65 | 6d 6f 72 79 2e 68 3e 0d |lude <Me|mory.h>.|
|000002c0| 23 69 6e 63 6c 75 64 65 | 20 3c 50 72 69 6e 74 69 |#include| <Printi|
|000002d0| 6e 67 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |ng.h>.#i|nclude <|
|000002e0| 46 6f 6e 74 73 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |Fonts.h>|.#includ|
|000002f0| 65 20 3c 52 65 73 6f 75 | 72 63 65 73 2e 68 3e 0d |e <Resou|rces.h>.|
|00000300| 23 69 6e 63 6c 75 64 65 | 20 3c 4f 53 55 74 69 6c |#include| <OSUtil|
|00000310| 73 2e 68 3e 0d 23 69 6e | 63 6c 75 64 65 20 3c 4d |s.h>.#in|clude <M|
|00000320| 61 74 68 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |ath.h>.#|include |
|00000330| 3c 43 6f 6d 70 6c 65 78 | 2e 68 3e 0d 23 69 6e 63 |<Complex|.h>.#inc|
|00000340| 6c 75 64 65 20 3c 53 74 | 64 4c 69 62 2e 68 3e 0d |lude <St|dLib.h>.|
|00000350| 0d 0d 23 64 65 66 69 6e | 65 20 73 74 65 70 73 58 |..#defin|e stepsX|
|00000360| 09 09 09 31 30 30 0d 23 | 64 65 66 69 6e 65 20 73 |...100.#|define s|
|00000370| 74 65 70 73 59 09 09 09 | 31 30 30 0d 0d 23 64 65 |tepsY...|100..#de|
|00000380| 66 69 6e 65 20 77 69 6e | 64 6f 77 54 6f 70 09 09 |fine win|dowTop..|
|00000390| 34 30 0d 23 64 65 66 69 | 6e 65 20 77 69 6e 64 6f |40.#defi|ne windo|
|000003a0| 77 4c 65 66 74 09 09 34 | 0d 23 64 65 66 69 6e 65 |wLeft..4|.#define|
|000003b0| 20 77 69 6e 64 6f 77 48 | 65 69 67 68 74 09 28 20 | windowH|eight.( |
|000003c0| 73 74 65 70 73 59 20 2b | 20 34 30 20 29 0d 23 64 |stepsY +| 40 ).#d|
|000003d0| 65 66 69 6e 65 20 77 69 | 6e 64 6f 77 57 69 64 74 |efine wi|ndowWidt|
|000003e0| 68 09 09 28 20 73 74 65 | 70 73 58 20 2b 20 34 30 |h..( ste|psX + 40|
|000003f0| 20 29 0d 23 64 65 66 69 | 6e 65 20 77 69 6e 64 6f | ).#defi|ne windo|
|00000400| 77 54 69 74 6c 65 09 09 | 22 5c 70 42 69 6f 6d 6f |wTitle..|"\pBiomo|
|00000410| 72 70 68 73 22 0d 0d 23 | 64 65 66 69 6e 65 20 6e |rphs"..#|define n|
|00000420| 69 6c 09 09 09 09 30 4c | 0d 0d 0d 74 79 70 65 64 |il....0L|...typed|
|00000430| 65 66 20 73 74 72 75 63 | 74 0d 7b 0d 09 65 78 74 |ef struc|t.{..ext|
|00000440| 65 6e 64 65 64 20 09 74 | 6f 70 2c 6c 65 66 74 2c |ended .t|op,left,|
|00000450| 62 6f 74 74 6f 6d 2c 72 | 69 67 68 74 3b 0d 7d 20 |bottom,r|ight;.} |
|00000460| 63 52 65 63 74 3b 0d 0d | 0d 2f 2a 2a 2a 2a 20 67 |cRect;..|./**** g|
|00000470| 6c 6f 62 61 6c 73 20 2a | 2a 2a 2a 2f 0d 0d 09 57 |lobals *|***/...W|
|00000480| 69 6e 64 6f 77 50 74 72 | 09 64 69 73 70 6c 61 79 |indowPtr|.display|
|00000490| 3b 0d 09 63 6f 6d 70 6c | 65 78 09 09 63 3b 0d 09 |;..compl|ex..c;..|
|000004a0| 63 52 65 63 74 09 09 74 | 61 72 67 65 74 3b 0d 09 |cRect..t|arget;..|
|000004b0| 65 78 74 65 6e 64 65 64 | 09 69 6e 63 58 2c 20 69 |extended|.incX, i|
|000004c0| 6e 63 59 3b 0d 09 73 68 | 6f 72 74 09 09 78 30 2c |ncY;..sh|ort..x0,|
|000004d0| 20 79 30 3b 0d 09 42 6f | 6f 6c 65 61 6e 09 09 61 | y0;..Bo|olean..a|
|000004e0| 6c 72 65 61 64 79 44 72 | 61 77 6e 3b 0d 09 42 69 |lreadyDr|awn;..Bi|
|000004f0| 74 4d 61 70 09 09 6f 66 | 66 53 63 72 65 65 6e 3b |tMap..of|fScreen;|
|00000500| 0d 0d 0d 0d 63 6f 6d 70 | 6c 65 78 20 20 67 65 6e |....comp|lex  gen|
|00000510| 65 72 61 74 6f 72 28 63 | 6f 6d 70 6c 65 78 20 7a |erator(c|omplex z|
|00000520| 29 0d 09 2f 2f 20 20 20 | 7a 20 3d 20 7a 5e 33 20 |)..//   |z = z^3 |
|00000530| 2b 20 63 0d 09 2f 2f 20 | 20 20 28 61 2b 62 69 29 |+ c..// |  (a+bi)|
|00000540| 5e 33 20 3d 20 61 28 61 | 5e 32 20 2d 20 33 62 5e |^3 = a(a|^2 - 3b^|
|00000550| 32 29 20 2b 20 62 28 33 | 61 5e 32 20 2d 20 62 5e |2) + b(3|a^2 - b^|
|00000560| 32 29 69 0d 7b 0d 09 63 | 6f 6d 70 6c 65 78 20 6e |2)i.{..c|omplex n|
|00000570| 3b 0d 09 0d 09 6e 2e 72 | 65 20 3d 20 7a 2e 72 65 |;....n.r|e = z.re|
|00000580| 20 2a 20 28 28 7a 2e 72 | 65 20 2a 20 7a 2e 72 65 | * ((z.r|e * z.re|
|00000590| 29 20 2d 20 28 33 20 2a | 20 7a 2e 69 6d 20 2a 20 |) - (3 *| z.im * |
|000005a0| 7a 2e 69 6d 29 29 20 2b | 20 63 2e 72 65 3b 0d 09 |z.im)) +| c.re;..|
|000005b0| 6e 2e 69 6d 20 3d 20 7a | 2e 69 6d 20 2a 20 28 28 |n.im = z|.im * ((|
|000005c0| 33 20 2a 20 7a 2e 72 65 | 20 2a 20 7a 2e 72 65 29 |3 * z.re| * z.re)|
|000005d0| 20 2d 20 28 7a 2e 69 6d | 20 2a 20 7a 2e 69 6d 29 | - (z.im| * z.im)|
|000005e0| 29 20 2b 20 63 2e 69 6d | 3b 0d 09 0d 09 72 65 74 |) + c.im|;....ret|
|000005f0| 75 72 6e 20 6e 3b 0d 7d | 0d 0d 2f 2a 20 20 20 2f |urn n;.}|../*   /|
|00000600| 2f 20 20 65 71 75 69 76 | 61 6c 65 6e 74 20 61 6c |/  equiv|alent al|
|00000610| 74 65 72 6e 61 74 69 76 | 65 20 66 75 6e 63 74 69 |ternativ|e functi|
|00000620| 6f 6e 2d 2d 20 20 65 61 | 73 69 65 72 2c 20 62 75 |on--  ea|sier, bu|
|00000630| 74 20 73 6c 6f 77 65 72 | 2e 0d 7b 0d 09 72 65 74 |t slower|..{..ret|
|00000640| 75 72 6e 09 28 20 63 61 | 64 64 20 28 63 78 70 77 |urn.( ca|dd (cxpw|
|00000650| 72 69 28 7a 2c 20 33 29 | 2c 20 63 29 20 29 3b 0d |ri(z, 3)|, c) );.|
|00000660| 7d 0d 2a 2f 0d 0d 0d 76 | 6f 69 64 20 70 6c 6f 74 |}.*/...v|oid plot|
|00000670| 20 28 73 68 6f 72 74 20 | 78 2c 20 73 68 6f 72 74 | (short |x, short|
|00000680| 20 79 2c 20 42 6f 6f 6c | 65 61 6e 20 69 73 42 6c | y, Bool|ean isBl|
|00000690| 61 63 6b 29 0d 7b 0d 09 | 69 66 20 28 20 69 73 42 |ack).{..|if ( isB|
|000006a0| 6c 61 63 6b 20 29 0d 09 | 7b 0d 09 09 4d 6f 76 65 |lack )..|{...Move|
|000006b0| 54 6f 20 28 78 30 20 2b | 20 78 2c 20 79 30 20 2b |To (x0 +| x, y0 +|
|000006c0| 20 79 29 3b 0d 09 09 4c | 69 6e 65 20 28 30 2c 30 | y);...L|ine (0,0|
|000006d0| 29 3b 0d 09 7d 0d 7d 0d | 0d 0d 63 6f 6d 70 6c 65 |);..}.}.|..comple|
|000006e0| 78 20 20 63 6f 6d 70 75 | 74 65 5a 7a 65 72 6f 28 |x  compu|teZzero(|
|000006f0| 73 68 6f 72 74 20 6a 2c | 20 73 68 6f 72 74 20 6b |short j,| short k|
|00000700| 29 0d 7b 0d 09 63 6f 6d | 70 6c 65 78 20 6e 3b 0d |).{..com|plex n;.|
|00000710| 09 0d 09 6e 2e 72 65 20 | 3d 20 74 61 72 67 65 74 |...n.re |= target|
|00000720| 2e 6c 65 66 74 20 2b 20 | 28 69 6e 63 58 20 2a 20 |.left + |(incX * |
|00000730| 6a 29 3b 0d 09 6e 2e 69 | 6d 20 3d 20 74 61 72 67 |j);..n.i|m = targ|
|00000740| 65 74 2e 74 6f 70 20 20 | 2b 20 28 69 6e 63 59 20 |et.top  |+ (incY |
|00000750| 2a 20 6b 29 3b 0d 09 72 | 65 74 75 72 6e 20 6e 3b |* k);..r|eturn n;|
|00000760| 0d 7d 0d 0d 0d 65 78 74 | 65 6e 64 65 64 20 6d 6f |.}...ext|ended mo|
|00000770| 64 53 71 28 63 6f 6d 70 | 6c 65 78 20 7a 29 0d 7b |dSq(comp|lex z).{|
|00000780| 0d 09 72 65 74 75 72 6e | 20 28 20 28 7a 2e 72 65 |..return| ( (z.re|
|00000790| 20 2a 20 7a 2e 72 65 29 | 20 20 2b 20 20 28 7a 2e | * z.re)|  +  (z.|
|000007a0| 69 6d 20 2a 20 7a 2e 69 | 6d 29 20 29 3b 0d 7d 0d |im * z.i|m) );.}.|
|000007b0| 0d 0d 76 6f 69 64 20 64 | 72 61 77 43 6f 6e 74 65 |..void d|rawConte|
|000007c0| 6e 74 73 28 57 69 6e 64 | 6f 77 50 74 72 20 77 29 |nts(Wind|owPtr w)|
|000007d0| 0d 7b 0d 09 73 68 6f 72 | 74 09 09 6a 2c 20 6b 2c |.{..shor|t..j, k,|
|000007e0| 20 6e 3b 0d 09 63 6f 6d | 70 6c 65 78 09 09 7a 3b | n;..com|plex..z;|
|000007f0| 0d 09 45 76 65 6e 74 52 | 65 63 6f 72 64 09 65 76 |..EventR|ecord.ev|
|00000800| 74 3b 0d 09 0d 0d 09 45 | 72 61 73 65 52 65 63 74 |t;.....E|raseRect|
|00000810| 28 26 28 77 2d 3e 70 6f | 72 74 52 65 63 74 29 29 |(&(w->po|rtRect))|
|00000820| 3b 0d 0d 09 69 66 20 28 | 20 61 6c 72 65 61 64 79 |;...if (| already|
|00000830| 44 72 61 77 6e 20 29 0d | 09 09 43 6f 70 79 42 69 |Drawn ).|..CopyBi|
|00000840| 74 73 20 28 26 6f 66 66 | 53 63 72 65 65 6e 2c 20 |ts (&off|Screen, |
|00000850| 26 28 64 69 73 70 6c 61 | 79 2d 3e 70 6f 72 74 42 |&(displa|y->portB|
|00000860| 69 74 73 29 2c 0d 09 09 | 09 09 09 26 28 6f 66 66 |its),...|...&(off|
|00000870| 53 63 72 65 65 6e 2e 62 | 6f 75 6e 64 73 29 2c 20 |Screen.b|ounds), |
|00000880| 26 28 6f 66 66 53 63 72 | 65 65 6e 2e 62 6f 75 6e |&(offScr|een.boun|
|00000890| 64 73 29 2c 0d 09 09 09 | 09 09 09 73 72 63 43 6f |ds),....|...srcCo|
|000008a0| 70 79 2c 20 6e 69 6c 29 | 3b 0d 0d 09 65 6c 73 65 |py, nil)|;...else|
|000008b0| 0d 09 7b 0d 09 09 77 68 | 69 6c 65 20 28 20 47 65 |..{...wh|ile ( Ge|
|000008c0| 74 4e 65 78 74 45 76 65 | 6e 74 28 6d 44 6f 77 6e |tNextEve|nt(mDown|
|000008d0| 4d 61 73 6b 20 2b 20 6b | 65 79 44 6f 77 6e 4d 61 |Mask + k|eyDownMa|
|000008e0| 73 6b 2c 20 26 65 76 74 | 29 20 29 0d 09 09 09 7b |sk, &evt|) )....{|
|000008f0| 7d 3b 20 20 2f 2a 20 64 | 75 6d 70 20 65 76 65 6e |};  /* d|ump even|
|00000900| 74 20 71 75 65 75 65 20 | 2a 2f 0d 09 09 09 0d 09 |t queue |*/......|
|00000910| 09 50 65 6e 4e 6f 72 6d | 61 6c 28 29 3b 0d 09 09 |.PenNorm|al();...|
|00000920| 66 6f 72 20 28 20 6a 20 | 3d 20 30 3b 20 6a 20 3c |for ( j |= 0; j <|
|00000930| 20 73 74 65 70 73 58 3b | 20 2b 2b 6a 20 29 0d 09 | stepsX;| ++j )..|
|00000940| 09 7b 0d 09 09 09 69 66 | 20 28 20 45 76 65 6e 74 |.{....if| ( Event|
|00000950| 41 76 61 69 6c 28 6d 44 | 6f 77 6e 4d 61 73 6b 20 |Avail(mD|ownMask |
|00000960| 2b 20 6b 65 79 44 6f 77 | 6e 4d 61 73 6b 2c 20 26 |+ keyDow|nMask, &|
|00000970| 65 76 74 29 20 29 0d 09 | 09 09 09 62 72 65 61 6b |evt) )..|...break|
|00000980| 3b 0d 09 09 09 66 6f 72 | 20 28 20 6b 20 3d 20 30 |;....for| ( k = 0|
|00000990| 3b 20 6b 20 3c 20 73 74 | 65 70 73 59 3b 20 2b 2b |; k < st|epsY; ++|
|000009a0| 6b 20 29 0d 09 09 09 7b | 0d 09 09 09 09 7a 20 3d |k )....{|.....z =|
|000009b0| 20 63 6f 6d 70 75 74 65 | 5a 7a 65 72 6f 28 6a 2c | compute|Zzero(j,|
|000009c0| 6b 29 3b 0d 09 09 09 09 | 66 6f 72 20 28 20 6e 20 |k);.....|for ( n |
|000009d0| 3d 20 30 3b 20 6e 20 3c | 20 31 30 3b 20 2b 2b 6e |= 0; n <| 10; ++n|
|000009e0| 20 29 0d 09 09 09 09 7b | 0d 09 09 09 09 09 7a 20 | ).....{|......z |
|000009f0| 3d 20 67 65 6e 65 72 61 | 74 6f 72 28 7a 29 3b 0d |= genera|tor(z);.|
|00000a00| 09 09 09 09 09 69 66 20 | 28 20 28 66 61 62 73 28 |.....if |( (fabs(|
|00000a10| 7a 2e 72 65 29 20 3e 20 | 31 30 2e 30 29 20 20 20 |z.re) > |10.0)   |
|00000a20| 7c 7c 0d 09 09 09 09 09 | 09 20 28 66 61 62 73 28 |||......|. (fabs(|
|00000a30| 7a 2e 69 6d 29 20 3e 20 | 31 30 2e 30 29 20 20 20 |z.im) > |10.0)   |
|00000a40| 7c 7c 0d 09 09 09 09 09 | 09 20 28 6d 6f 64 53 71 |||......|. (modSq|
|00000a50| 28 7a 29 20 20 20 3e 20 | 31 30 30 2e 30 29 20 20 |(z)   > |100.0)  |
|00000a60| 20 29 0d 09 09 09 09 09 | 09 62 72 65 61 6b 3b 0d | )......|.break;.|
|00000a70| 09 09 09 09 7d 0d 09 09 | 09 09 70 6c 6f 74 20 28 |....}...|..plot (|
|00000a80| 6a 2c 20 6b 2c 20 28 28 | 66 61 62 73 28 7a 2e 72 |j, k, ((|fabs(z.r|
|00000a90| 65 29 20 3c 20 31 30 29 | 20 7c 7c 20 28 66 61 62 |e) < 10)| || (fab|
|00000aa0| 73 28 7a 2e 69 6d 29 20 | 3c 20 31 30 29 29 20 29 |s(z.im) |< 10)) )|
|00000ab0| 3b 0d 09 09 09 7d 0d 09 | 09 7d 0d 09 09 61 6c 72 |;....}..|.}...alr|
|00000ac0| 65 61 64 79 44 72 61 77 | 6e 20 3d 20 74 72 75 65 |eadyDraw|n = true|
|00000ad0| 3b 0d 09 09 43 6f 70 79 | 42 69 74 73 20 28 26 28 |;...Copy|Bits (&(|
|00000ae0| 64 69 73 70 6c 61 79 2d | 3e 70 6f 72 74 42 69 74 |display-|>portBit|
|00000af0| 73 29 2c 20 26 6f 66 66 | 53 63 72 65 65 6e 2c 0d |s), &off|Screen,.|
|00000b00| 09 09 09 09 09 26 28 6f | 66 66 53 63 72 65 65 6e |.....&(o|ffScreen|
|00000b10| 2e 62 6f 75 6e 64 73 29 | 2c 20 26 28 6f 66 66 53 |.bounds)|, &(offS|
|00000b20| 63 72 65 65 6e 2e 62 6f | 75 6e 64 73 29 2c 0d 09 |creen.bo|unds),..|
|00000b30| 09 09 09 09 09 73 72 63 | 43 6f 70 79 2c 20 6e 69 |.....src|Copy, ni|
|00000b40| 6c 29 3b 0d 09 09 53 79 | 73 42 65 65 70 28 31 29 |l);...Sy|sBeep(1)|
|00000b50| 3b 0d 09 7d 0d 7d 0d 0d | 0d 2f 2a 2a 2a 2a 20 67 |;..}.}..|./**** g|
|00000b60| 65 6e 65 72 69 63 20 74 | 6f 6f 6c 20 73 74 75 66 |eneric t|ool stuf|
|00000b70| 66 20 2a 2a 2a 2a 2f 0d | 0d 0d 76 6f 69 64 20 64 |f ****/.|..void d|
|00000b80| 6f 55 70 64 61 74 65 28 | 57 69 6e 64 6f 77 50 74 |oUpdate(|WindowPt|
|00000b90| 72 20 77 29 0d 7b 0d 09 | 47 72 61 66 50 74 72 09 |r w).{..|GrafPtr.|
|00000ba0| 73 61 76 65 50 6f 72 74 | 3b 0d 09 0d 09 47 65 74 |savePort|;....Get|
|00000bb0| 50 6f 72 74 28 26 73 61 | 76 65 50 6f 72 74 29 3b |Port(&sa|vePort);|
|00000bc0| 0d 09 53 65 74 50 6f 72 | 74 28 77 29 3b 0d 09 43 |..SetPor|t(w);..C|
|00000bd0| 6c 69 70 52 65 63 74 28 | 26 28 77 2d 3e 70 6f 72 |lipRect(|&(w->por|
|00000be0| 74 52 65 63 74 29 29 3b | 0d 09 42 65 67 69 6e 55 |tRect));|..BeginU|
|00000bf0| 70 64 61 74 65 28 77 29 | 3b 0d 09 09 64 72 61 77 |pdate(w)|;...draw|
|00000c00| 43 6f 6e 74 65 6e 74 73 | 28 77 29 3b 0d 09 45 6e |Contents|(w);..En|
|00000c10| 64 55 70 64 61 74 65 28 | 77 29 3b 0d 09 53 65 74 |dUpdate(|w);..Set|
|00000c20| 50 6f 72 74 28 73 61 76 | 65 50 6f 72 74 29 3b 0d |Port(sav|ePort);.|
|00000c30| 7d 0d 0d 0d 76 6f 69 64 | 20 6d 61 6b 65 4f 66 66 |}...void| makeOff|
|00000c40| 53 63 72 65 65 6e 28 29 | 20 20 20 2f 2a 20 73 65 |Screen()|   /* se|
|00000c50| 74 20 75 70 20 6f 66 66 | 73 63 72 65 65 6e 20 62 |t up off|screen b|
|00000c60| 69 74 6d 61 70 20 74 6f | 20 73 74 6f 72 65 20 69 |itmap to| store i|
|00000c70| 6d 61 67 65 20 2a 2f 0d | 7b 0d 09 53 69 7a 65 09 |mage */.|{..Size.|
|00000c80| 09 73 69 7a 65 4f 66 4f | 66 66 3b 0d 09 73 68 6f |.sizeOfO|ff;..sho|
|00000c90| 72 74 09 09 6f 66 66 52 | 6f 77 42 79 74 65 73 3b |rt..offR|owBytes;|
|00000ca0| 0d 0d 09 6f 66 66 52 6f | 77 42 79 74 65 73 20 3d |...offRo|wBytes =|
|00000cb0| 20 28 28 28 77 69 6e 64 | 6f 77 57 69 64 74 68 20 | (((wind|owWidth |
|00000cc0| 2d 20 31 29 20 2f 20 31 | 36 29 20 2b 20 31 29 20 |- 1) / 1|6) + 1) |
|00000cd0| 2a 20 32 3b 0d 09 73 69 | 7a 65 4f 66 4f 66 66 20 |* 2;..si|zeOfOff |
|00000ce0| 3d 20 77 69 6e 64 6f 77 | 48 65 69 67 68 74 20 2a |= window|Height *|
|00000cf0| 20 6f 66 66 52 6f 77 42 | 79 74 65 73 3b 0d 09 0d | offRowB|ytes;...|
|00000d00| 09 6f 66 66 53 63 72 65 | 65 6e 2e 62 61 73 65 41 |.offScre|en.baseA|
|00000d10| 64 64 72 20 3d 20 28 51 | 44 50 74 72 29 20 4e 65 |ddr = (Q|DPtr) Ne|
|00000d20| 77 50 74 72 28 73 69 7a | 65 4f 66 4f 66 66 29 3b |wPtr(siz|eOfOff);|
|00000d30| 0d 09 6f 66 66 53 63 72 | 65 65 00 00 00 00 00 00 |..offScr|ee......|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 28 63 78 70 77 72 69 28 | 7a 2c 20 33 29 2c 20 63 |(cxpwri(|z, 3), c|
|00000d90| 29 20 29 3b 0d 09 09 09 | 7d 0d 09 0d 09 54 68 65 |) );....|}....The|
|00000da0| 73 65 20 62 75 69 6c 74 | 2d 69 6e 20 63 6f 6d 70 |se built|-in comp|
|00000db0| 6c 65 78 20 66 75 6e 63 | 74 69 6f 6e 73 2c 20 68 |lex func|tions, h|
|00000dc0| 6f 77 65 76 65 72 2c 20 | 61 72 65 20 71 75 69 74 |owever, |are quit|
|00000dd0| 65 20 73 6c 6f 77 2c 0d | 09 73 6f 20 79 6f 75 20 |e slow,.|.so you |
|00000de0| 6d 61 79 20 77 61 6e 74 | 20 74 6f 20 75 73 65 20 |may want| to use |
|00000df0| 79 6f 75 72 20 6f 77 6e | 20 66 6f 72 6d 75 6c 61 |your own| formula|
|00000e00| 65 20 77 68 65 6e 65 76 | 65 72 20 70 6f 73 73 69 |e whenev|er possi|
|00000e10| 62 6c 65 2c 0d 09 61 73 | 20 69 73 20 64 6f 6e 65 |ble,..as| is done|
|00000e20| 20 69 6e 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 | in the |program |
|00000e30| 62 65 6c 6f 77 2e 0d 09 | 09 09 0d 0d 0d 09 54 68 |below...|......Th|
|00000e40| 65 20 61 72 74 69 63 6c | 65 20 69 6e 20 53 63 69 |e articl|e in Sci|
|00000e50| 65 6e 74 69 66 69 63 20 | 41 6d 65 72 69 63 61 6e |entific |American|
|00000e60| 20 73 75 67 67 65 73 74 | 73 3a 0d 09 0d 09 09 63 | suggest|s:.....c|
|00000e70| 3a 20 09 09 09 30 2e 35 | 20 2b 20 30 2e 30 69 0d |: ...0.5| + 0.0i.|
|00000e80| 09 09 62 6f 75 6e 64 73 | 3a 09 09 2d 31 2e 35 2c |..bounds|:..-1.5,|
|00000e90| 20 2d 31 2e 35 2c 20 31 | 2e 35 2c 20 31 2e 35 0d | -1.5, 1|.5, 1.5.|
|00000ea0| 09 09 67 65 6e 65 72 61 | 74 6f 72 3a 09 7a 20 3d |..genera|tor:.z =|
|00000eb0| 20 7a 5e 33 20 2b 20 63 | 0d 09 09 0d 09 20 20 09 | z^3 + c|.....  .|
|00000ec0| 09 4e 4f 54 45 3a 20 20 | 54 68 65 20 70 72 6f 67 |.NOTE:  |The prog|
|00000ed0| 72 61 6d 20 62 65 6c 6f | 77 20 75 73 65 73 20 74 |ram belo|w uses t|
|00000ee0| 68 69 73 20 67 65 6e 65 | 72 61 74 6f 72 3b 0d 09 |his gene|rator;..|
|00000ef0| 20 20 09 09 09 66 72 6f | 6d 20 74 68 65 20 00 00 |  ...fro|m the ..|
+--------+-------------------------+-------------------------+--------+--------+